60394 REM
60395 REM *** MULTI-PUNKT SETZEN ***
60396 REM
60397 REM FA = FARBE DES PUNKTES (0-3)
60398 REM X,Y = KOORDINATEN DES PUNKTES
60399 REM
60400 GA=320*INT(Y/8)+(Y AND 7)+(8*INT(X/4))+8192:REM GRAFIKADRESSE ERRECHNEN
60405 REM * BITNUMMERN ERRECHNEN *
60410 M1=2*(3-(X AND 3))
60420 M2=M1+1
60425 REM * WELCHE FARBE ? *
60430 ON FA+1 GOTO 60450,60460,60470,60480
60440 PRINT "?FALSCHE FARBE":END
60445 REM * BITKOMBINATIONEN DER FARBEN *
60450 B1=0:B2=0:GOTO 60490
60460 B1=0:B2=1:GOTO 60490
60470 B1=1:B2=0:GOTO 60490
60480 B1=1:B2=1
60490 IF B1=0 THEN M=M1:GOSUB 60540:REM BIT1 LOESCHEN
60500 IF B1=1 THEN M=M1:GOSUB 60560:REM BIT1 SETZEN
60510 IF B2=0 THEN M=M2:GOSUB 60540:REM BIT2 LOESCHEN
60520 IF B2=1 THEN M=M2:GOSUB 60560:REM BIT2 SETZEN
60530 RETURN
60535 REM * BIT LOESCHEN *
60540 POKE GA,PEEK(GA) AND (255-2^M)
60550 RETURN
60555 REM * BIT SETZEN *
60560 POKE GA,PEEK(GA) OR 2^M
60570 RETURN